home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / STATION5 / MSFLOPPY.INF < prev    next >
INI File  |  1994-06-30  |  23KB  |  733 lines
  1. DefineVariables
  2.   Number [SizeOfBase]
  3.   Number [SizeOfMin]
  4.   Number [SizeOfFullUstn]
  5.   Number [SizeOfOnlyMech]
  6.   Number [SizeOfOnlyArch]
  7.   Number [SizeOfOnlyCivil]
  8.   Number [SizeOfOnlyMap]
  9.   Number [InstalledMech]
  10.   Number [InstalledMap]
  11.   Number [InstalledCivil]
  12.   Number [InstalledArch]
  13.   Number [InstalledLearn]
  14.   Number [SetWindows]
  15.   Number [xnumber10]
  16.   Number [xnumber11]
  17.   Number [xnumber12]
  18.   Number [xnumber13]
  19.   Number [xnumber14]
  20.   Number [xnumber15]
  21.   Number [xnumber16]
  22.   Number [xnumber17]
  23.   Number [xnumber18]
  24.   Number [xnumber19]
  25.   Number [xnumber20]
  26.   Number [insideget]
  27.   Number [JustSetWin]
  28.   Number [UnAttended]
  29.   Text   [FileString]
  30.   Text   [InstallType]
  31.   Text   [FileName]
  32. EndDefineVariables
  33. [insideget] := 0
  34. [UnAttended] := 0
  35. [JustSetWin] := 0
  36. SetAllowExit off
  37. SetCheckmarks Off
  38. LetButton <Esc> Do ourExitProc
  39.  
  40. ;;SetCompletionStatusTo Finished
  41. ;;DetermineInstallationDirectory
  42. ;;goto [Point30]
  43.  
  44. SetCompletionStatusTo Unfinished
  45.  
  46. If commandline contains /s:
  47. TextBox
  48. Bienvenidos al programa de instalación de MicroStation
  49.  
  50. El programa está ejecutando una instalación automática
  51. de ficheros de MicroStation.
  52.  
  53. Por favor cargar los discos según se indique.
  54. EndTextBox
  55. if [CommandLine1] contains /s:
  56.    [FileName] := SubstringOf [CommandLine1] from 4 to End
  57.    GoTo [Point10]
  58. endif
  59. if [CommandLine2] contains /s:
  60.    [FileName] := SubstringOf [CommandLine2] from 4 to End
  61.    GoTo [Point10]
  62. endif
  63. if [CommandLine3] contains /s:
  64.    [FileName] := SubstringOf [CommandLine3] from 4 to End
  65.    GoTo [Point10]
  66. endif
  67. if [CommandLine4] contains /s:
  68.    [FileName] := SubstringOf [CommandLine4] from 4 to End
  69.    GoTo [Point10]
  70. endif
  71. if [CommandLine5] contains /s:
  72.    [FileName] := SubstringOf [CommandLine5] from 4 to End
  73.    GoTo [Point10]
  74. endif
  75. if [CommandLine6] contains /s:
  76.    [FileName] := SubstringOf [CommandLine6] from 4 to End
  77.    GoTo [Point10]
  78. endif
  79. if [CommandLine7] contains /s:
  80.    [FileName] := SubstringOf [CommandLine7] from 4 to End
  81.    GoTo [Point10]
  82. endif
  83. if [CommandLine8] contains /s:
  84.    [FileName] := SubstringOf [CommandLine8] from 4 to End
  85.    GoTo [Point10]
  86. endif
  87. if [CommandLine9] contains /s:
  88.    [FileName] := SubstringOf [CommandLine9] from 4 to End
  89.    GoTo [Point10]
  90. endif
  91. [Point10]
  92. if FileExists [FileName]
  93. Else
  94.    SetCompletionStatusTo Unfinished
  95.    Goto [Point30]
  96. EndIf
  97. ExamineTextFile [FileName]
  98. [String4] := SettingFor DestPath
  99. [InstallType] := SettingFor InstallType
  100. [String1] := SettingFor Name
  101. [String2] := SettingFor Organization
  102. [String3] := SettingFor Serial
  103. ForgetTextFile
  104. TextBox @xy(Center,18)
  105. Instalando en el directorio [String4],
  106. tipo de instalación : [InstallType]
  107. endTextBox
  108. [InstallationDirectory] := [string4]
  109.  
  110. if [InstallType] = complete
  111.    do doinstallfull
  112. Endif
  113. if [InstallType] = minimum
  114.    do dominimal
  115. Endif
  116. if [InstallType] = absmin
  117.    do doabsmin
  118. Endif
  119. [Number1] := quesize
  120. if [Number1] = 0
  121.    Popup "Opción no válida en la tabla de definición."
  122.    SetCompletionStatusTo UnFinished
  123.    goto [Point30]
  124. endif
  125. [Number1] := FreeSpaceOnDrive InstallationDrive
  126. [Number2] := QueSize
  127. if [Number1] < [Number2]
  128.    popup "No hay suficiente espacio en la unidad especificada..."
  129.    SetCompletionStatusTo UnFinished
  130.    goto [Point30]
  131. endif
  132. [UnAttended] := 1
  133. goto [Point27]
  134. Endif
  135. Dialog
  136. Bienvenidos al programa de instalación de MicroStation
  137.  
  138. Este programa instala MicroStation en su sistema.
  139. Oprimir las flechas para seleccionar opciones, la barra
  140. de espaciado para incluir la lista de instalación,
  141. (si aplica) y oprimir Enter o Return para ejecutarlos.
  142. Para salir de este programa, oprimir <Esc>
  143. EndDialog
  144. TextBox
  145. Por favor esperar mientras se examina su sistema...
  146. Las especificaciones del espacio de disco que el programa de 
  147. instalación indica que ocupan los ficheros de MicroStation 
  148. son estimados, el espacio realmente usado en su disco duro 
  149. depende de cómo se haya formateado.
  150. EndTextBox
  151. [SizeOfMin] := SizeOfGroup 1
  152. [SizeOfMin] := [SizeOfMin] + SizeOfGroup 2
  153. [SizeOfMin] := [SizeOfMin] + SizeOfGroup 9
  154. [SizeOfMin] := [SizeOfMin] / 1024
  155. [SizeOfBase] := SizeOfGroup  1
  156. [SizeOfBase] := [SizeOfBase] +sizeofgroup 2
  157. [SizeOfBase] := [SizeOfBase] +sizeofgroup 20
  158. [SizeOfBase] := [SizeOfBase] +sizeofgroup 9
  159. [SizeOfBase] := [SizeOfBase]/1024
  160. [SizeOfFullUstn] := sizeofgroup 1
  161. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 2
  162. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 20
  163. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 10
  164. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 4
  165. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 41
  166. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 5
  167. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 11
  168. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 12
  169. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 13
  170. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 14
  171. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 9
  172. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 91
  173. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 92
  174. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 93
  175. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 94
  176. [SizeOfFullUstn] := [SizeOfFullUstn]/1024
  177. [SizeOfOnlyMech] := SizeOfGroup 94
  178. [SizeOfOnlyArch] := SizeOfGroup 91
  179. [SizeOfOnlyCivil] := SizeOfGroup 92
  180. [SizeOfOnlyMap] := SizeOfGroup 93
  181. Dialog PressAKey @xy(CENTER,19)
  182. Programa de Instalación de MicroStation
  183. (c)  1993  Bentley  Systems, Inc.
  184. EndDialog
  185. [Point1]
  186. ClearScreen
  187. SetTopLineAttrTo WhiteOnBlue
  188. SetBottomLineAttrTo BlueOnLightGray
  189. SetTopLineTo "Programa de Instalación de MicroStation"
  190. SetBottomLineTo "  Flechas = Seleccionar   <Intro> = Ejecutar  <Esc> = Salir  "
  191. UnQueAllFiles
  192. [Number2] := [SizeOfFullUstn]/1024
  193. [Number3] := SizeofGroup 1 + SizeOfGroup 2 + SizeofGroup 9
  194. [Number3] := [Number3] + [Number3] / 10
  195. [Number3] := [Number3]  /1048576
  196. [Number1] := [Number1] + [Number1]/10
  197. [Number2] := [Number2] + [Number2]/10
  198. GetMenuChoice UseHeader "Seleccionar el tipo de instalación"
  199. Mínima
  200.   ;Este tipo de instalación se recomienda sólo si el espacio de disco 
  201.   ;es MUY limitado. No incluye ningún ejemplo ni Ayuda interactiva.
  202.   ; Ocupa aproximadamente [Number3] MB de espacio de disco duro.
  203. Completa (todos los ficheros)
  204.   ;La instalación completa incluye todos los ficheros. Los ficheros 
  205.    ;ocupan aproximadamente [Number2] MB espacio disco duro. 
  206. Personalizada (grupos selectos de ficheros)
  207.   ;Una instalación personalizada instala uno o más grupos de ficheros:
  208.    ;Sistema, Base datos, Ayuda y Espacio trabajo.
  209. endGetMenuChoice
  210. Incase choice is
  211.  =1: do dominimal
  212.  =2: do doinstallfull
  213.  =3: do docustom
  214. endincase
  215. if queSize = 0
  216.    if [JustSetWin] = 1
  217.      Dialog [InstallationDirectory]
  218.      ¿Dónde está MicroStation actualmente?
  219.      EndDialog
  220.      if DirectoryExists [InstallationDirectory]
  221.     SetCompletionStatusTo Finished
  222.     Goto [Point30]
  223.      EndIf
  224.      PopUp "El directorio no existe..."
  225.      Goto [Point1]
  226.    EndIf
  227. EndIf
  228. ;;getquedfiles
  229. ;;SetCompletionStatusTo Finished
  230. procedure doinstallfull
  231.   quefilegroup 1 2 20
  232.   quefilegroup 4 41 5 9
  233.   quefilegroup 10 91 92 93 94
  234.   quefilegroup 97 11 12 13 14
  235.   [InstalledLearn] := 1
  236.   [InstalledMech] := 1
  237.   [InstalledMap] := 1
  238.   [InstalledCivil] := 1
  239.   [InstalledArch] := 1
  240. endprocedure
  241. procedure dominimal
  242.   quefilegroup 1 2 20 9
  243.   [InstalledLearn] := 0
  244.   [InstalledMech] := 0
  245.   [InstalledMap] := 0
  246.   [InstalledCivil] := 0
  247.   [InstalledArch] := 0
  248. endprocedure
  249. procedure doabsmin
  250.   quefilegroup 1 2 9
  251.   [InstalledLearn] := 0
  252.   [InstalledMech] := 0
  253.   [InstalledMap] := 0
  254.   [InstalledCivil] := 0
  255.   [InstalledArch] := 0
  256. endprocedure
  257. procedure docustom
  258. SetBottomLineTo "  <Espacio> = Marcar  <Intro> = Ejecutar  <Esc> = Salir  "
  259. [Point11]
  260. UnQueAllFiles
  261. [InstalledLearn] := 0
  262. [InstalledMech] := 0
  263. [InstalledMap] := 0
  264. [InstalledCivil] := 0
  265. [InstalledArch] := 0
  266. [Number1] := SizeOfGroup 20 / 1024
  267. [Number2] := SizeofGroup 4 / 1024
  268. [Number4] := SizeOfGroup 5 / 1024
  269. [Number7] := SizeOfGroup 10 / 1024
  270. [Number8] := SizeOfGroup 11 / 1024
  271. [Number9] := SizeOfGroup 12 / 1024
  272. [xnumber10] := SizeOfGroup 13 / 1024
  273. [xnumber11] := SizeOfGroup 14 / 1024
  274. [xnumber12] := [SizeOfOnlyArch] / 1024
  275. [xnumber14] := [SizeOfOnlyCivil] / 1024
  276. [xnumber15] := [SizeOfOnlyMech] / 1024
  277. [xnumber16] := [SizeOfOnlyMap] / 1024
  278. [xnumber19] := Sizeofgroup 41 / 1024
  279. [xnumber20] := SizeOfGroup 97 / 1024
  280. [Number1] := [Number1] + [Number1] / 10
  281. [Number2] := [Number2] + [Number2] / 10
  282. [Number4] := [Number4] + [Number4] / 10
  283. [Number7] := [Number7] + [Number7] / 10
  284. [Number8] := [Number8] + [Number8] / 10
  285. [Number9] := [Number9] + [Number9] / 10
  286. [xNumber10] := [xNumber10] + [xNumber10] / 10
  287. [xNumber11] := [xNumber11] + [xNumber11] / 10
  288. [xNumber12] := [xNumber12] + [xNumber12] / 10
  289. [xNumber13] := [xNumber13] + [xNumber13] / 10
  290. [xNumber14] := [xNumber14] + [xNumber14] / 10
  291. [xNumber15] := [xNumber15] + [xNumber15] / 10
  292. [xNumber16] := [xNumber16] + [xNumber16] / 10
  293. [xNumber18] := [SizeOfMin] + [SizeOfMin] / 10
  294. [xNumber19] := [xNumber19] + [xNumber19] / 10
  295. [xNumber20] := [xNumber20] + [xNumber20] / 10
  296. GetMenuChoice AllowMultiple UseHeader "Ficheros a instalar"
  297.   Instalar ficheros de sistema de MicroStation [xNumber18] Kbytes
  298.     ; Estos ficheros son requeridos por MicroStation
  299.   Instalar ficheros de documentación y Ayuda [Number2] Kbytes
  300.     ; Estos ficheros contienen documentación interactiva.
  301.   Instalar ficheros de Ayuda en formato Windows [xNumber19] Kbytes
  302.     ; Estos ficheros contienen documentación interactiva a usar con
  303.     ; la Conexión de Windows.
  304.   Instalar ficheros y progamas utilitarios [Number4] Kbytes
  305.      ; Estos ficheros contienen utilidades para usar
  306.      ; con MicroStation.
  307.   Instalar ficheros de Base de Datos Oracle [Number7] Kbytes
  308.     ; Estos contienen ficheros y ejemplos de Base de datos Oracle.
  309.   Instalar ficheros de Base de datos Xbase (dBASE IV)  [Number8] Kbytes
  310.     ; Estos ficheros contienen los ficheros y ejemplos de 
  311.     ; Base de datos Xbase para compatibilidad con dBASE IV.
  312.   Instalar ficheros de Base de datos XBase (dBASE III+)  [Number9] Kbytes
  313.     ; Estos ficheros contienen los ficheros y ejemplos de Base 
  314.     ; de datos Xbase para compatibilidad con dBASE III+.
  315.   Instalar ficheros de Base de datos Xbase (FoxBase)  [xnumber10] Kbytes
  316.     ; Estos ficheros contienen los ficheros y ejemplos de Base 
  317.     ; de datos Xbase para compatibilidad con FoxBase.
  318.   Instalar ficheros de Base de datos RIS  [xnumber11] Kbytes
  319.     ; Estos ficheros contienen los ficheros y ejemplos de Base 
  320.     ; de datos RIS para compatibilidad con RIS.
  321.   Instalar ficheros de aprendizaje y diseño de muestra [xnumber20] Kbytes
  322.     ; Estos ficheros contienen diseños de ejemplo y ficheros necesarios 
  323.     ; para estudiar las lecciones en la Guía del Usuario.
  324.   Instalar Espacio de trabajo de Arquitectura [xnumber12] Kbytes
  325.     ; Estos ficheros contienen ejemplos e interface de Arquitectura.
  326.   Instalar Espacio de trabajo de Ingeniería Civil [xnumber14] Kbytes
  327.     ; Estos ficheros contienen ejemplos e interface de Ingeniería Civil.
  328.   Instalar Espacio de trabajo de Diseño Mecánico [xnumber15] Kbytes
  329.     ; Estos ficheros contienen ejemplos e interface de Diseño Mecánico.
  330.   Instalar Espacio de trabajo de Cartografía [xnumber16] Kbytes
  331.     ; Estos ficheros contienen ejemplos e interface de Cartografía.
  332. endGetMenuChoice
  333. incase choice is 
  334.   =1: quefilegroup 1 2 9 20
  335.   =2: quefilegroup 4
  336.   =3: quefilegroup 41
  337.   =4: quefilegroup 5
  338.   =5: quefilegroup 10
  339.   =6: quefilegroup 11
  340.   =7: quefilegroup 12
  341.   =8: quefilegroup 13
  342.   =9: quefilegroup 14
  343.   =10: quefilegroup 97
  344.        [InstalledLearn] := 2
  345.   =11: quefilegroup 91
  346.        [InstalledArch] := 2
  347.   =12: quefilegroup 92
  348.        [InstalledCivil] := 2
  349.   =13: quefilegroup 94
  350.        [InstalledMech] := 2
  351.   =14: quefilegroup 93
  352.        [InstalledMap] := 2
  353. endincase
  354. SetBottomLineTo "  Flechas = Seleccionar   <Intro> = Ejecutar  <Esc> = Salir  "
  355. [Number2] := QueSize
  356. If [number2] = 0
  357.   If [JustSetWin] = 0
  358.      Goto [Point1]
  359.   EndIf
  360. Endif
  361. endprocedure
  362. [Point2]
  363. [Number1] := QueSize + QueSize / 10
  364. if commandline contains -bernoulli
  365.    determineinstallationdrive [Number1] RequireFixed BernoulliAsFixed
  366. else
  367.    determineinstallationdrive [Number1] RequireFixed
  368. endif
  369. [number1] := FreeSpaceOnDrive InstallationDrive
  370. [number2] := QueSize
  371. [number2] := [number2] + [number2] / 10
  372. GetMenuChoice UseHeader "Confirme por favor..."
  373.   Proceder con la instalación
  374.      ; Ha seleccionado la unidad InstallationDrive ([Number1] Bytes libres)
  375.      ; para instalación total de [Number2] Bytes.
  376.   Cambiar las opciones de instalación
  377.      ; Ha seleccionado la unidad InstallationDrive ([Number1] Bytes libres)
  378.      ; para instalación total de [Number2] Bytes.
  379.   Cambiar la unidad de destino
  380.      ; Ha seleccionado la unidad InstallationDrive ([Number1] Bytes libres)
  381.      ; para instalación total de [Number2] Bytes.
  382. EndGetMenuChoice
  383. InCase Choice is
  384.   =2: goto [Point1]
  385.   =3: goto [Point2]
  386. endInCase
  387. [Point3]
  388. determineinstallationdirectory RequireFixed
  389. [point41]
  390. if DirectoryExists [InstallationDirectory]
  391.    if DirectoryIsEmpty [InstallationDirectory]
  392.    else
  393.       GetMenuChoice UseHeader "Ya existe el directorio de instalación"
  394.       Seleccionar nuevo directorio
  395.         ; Haga esto si desea conservar la versión anterior.
  396.       Borrar este directorio y reinstalarlo
  397.         ; Haga esto si desea reemplazar todos los ficheros.
  398.       Borrar todo menos la información de la licencia
  399.         ; Haga esto si desea borrar todo menos la información
  400.         ; de licencia, espacios trabajo y ficheros diseño.
  401.       Instalar encima ficheros en este directorio
  402.          ; Haga esto si está añadiendo componentes a
  403.          ; MicroStation.
  404.       endGetMenuChoice
  405.       incase choice is
  406.      =1: GoTo [Point3]
  407.      =2: Dialog [YesOrNo1] WhiteOnRed
  408.          Está próximo a borrar todo el directorio de 
  409.          MicroStation. Haga el favor de confirmar si desea hacerlo.
  410.          EndDialog
  411.          if [YesOrNo1] = NoCharacter
  412.         goto [point41]
  413.          endif
  414.          Run [InstallFromDirectory]\cleanup.exe [InstallationDirectory] -wt245158906 Quietly NoPrompt SwapOut
  415.      =3: Dialog [YesOrNo1] WhiteOnRed
  416.          Está próximo a borrar la mayor parte del directorio de
  417.          MicroStation. Haga el favor de confirmar si desea hacerlo.
  418.          EndDialog
  419.          if [YesOrNo1] = NoCharacter
  420.         goto [point41]
  421.          endif
  422.          Run [InstallFromDirectory]\cleanup.exe [InstallationDirectory] -wt245158906 partially Quietly NoPrompt SwapOut
  423.        endincase
  424.    endif
  425. endif
  426. [Point20]
  427.  
  428.   If FileExists [InstallationDirectory]\License\ms50.lic
  429.      Goto [Point38]
  430.   EndIf
  431. SetBottomLineTo "  Escriba la información, luego oprima Control-Intro  "
  432.   Dialog Multiple UseHEader "Haga el favor de escribir la información de registro."
  433.   "Nombre:                                                              "
  434.   "Organización:                                                        "
  435.   "Numero serie:                                                        "
  436.   InputVariable [String1] @xy(16,1) 50
  437.   InputVariable [String2] @xy(16,2) 50
  438.   InputVariable [String3] @xy(16,3) 50
  439.   EndDialog
  440. SetBottomLineTo "  Flechas = Seleccionar   <Intro> = Ejecutar  <Esc> = Salir  "
  441.   if [String1] = BlankString
  442.      Goto [Point20]
  443.   EndIf
  444.   if [String2] = BlankString
  445.      Goto [Point20]
  446.   EndIf
  447.   if [String3] = BlankString
  448.      Goto [Point20]
  449.   EndIf
  450.   
  451.   Dialog [YesorNo1]
  452. Ha introducido la siguiente información:
  453.   
  454.   Nombre:          [String1]
  455.   Organización:    [String2]
  456.   Número de serie: [String3]
  457.   
  458.   Es la información correcta ?
  459.   endDialog
  460.   if [YesOrNo1] = NoCharacter
  461.      Goto [Point20]
  462.   EndIf
  463.  
  464. [Point27]
  465.  
  466.   CreateDirectoryIfNecessary [InstallationDirectory]
  467.   CreateDirectoryIfNecessary [InstallationDirectory]\license
  468.   ModifyTextFile [InstallationDirectory]\license\ms50.lic quietly
  469.      InsertAtLine End "[String3],0,"[String1]","[String2]""
  470.   EndModifyTextFile
  471. [Point38]
  472.  
  473. if [InstalledLearn] = 0
  474. UnQueFiles
  475.    learning.ucf
  476.    learning.pcf
  477. endUnQueFiles
  478. endif
  479. if [InstalledArch] = 0
  480. UnQueFiles
  481.    arch.ucf
  482.    archacad.ucf
  483.    arch.pcf
  484. endUnQueFiles
  485. endif
  486. if [InstalledMech] = 0
  487. UnQueFiles
  488.    mechdrft.ucf
  489.    mechnew.ucf
  490.    mechdrft.pcf
  491. endUnQueFiles
  492. endif
  493. if [InstalledCivil] = 0
  494. UnQueFiles
  495.    civil.ucf
  496.    civil.pcf
  497. endUnQueFiles
  498. endif
  499. if [InstalledMap] = 0
  500. UnQueFiles
  501.    mapping.ucf
  502.    maprev.ucf
  503.    mapping.pcf
  504. endUnQueFiles
  505. endif
  506. QueFiles to [installationdirectory]
  507.    README.TXT
  508. endQueFiles
  509.  
  510. CreateDirectoryIfNecessary [installationdirectory]
  511. setBottomLineTo " Cualquier tecla interrumpe el proceso de instalación... "
  512. if [InstalledLearn] = 2
  513. QueFiles
  514.    learning.ucf
  515.    learning.pcf
  516. endQueFiles
  517. endif
  518. if [InstalledArch] = 2
  519. QueFiles to [installationdirectory]\config\user
  520.    arch.ucf
  521.    archacad.ucf
  522. endQueFiles
  523. QueFiles to [installationdirectory]\config\project
  524.    arch.pcf
  525. endQueFiles
  526. endif
  527. if [InstalledMech] = 2
  528. QueFiles to [installationdirectory]\config\user
  529.    mechdrft.ucf
  530.    mechnew.ucf
  531. endQueFiles
  532. QueFiles to [installationdirectory]\config\project
  533.    mechdrft.pcf
  534. endQueFiles
  535. endif
  536. if [InstalledCivil] = 2
  537. QueFiles to [installationdirectory]\config\user
  538.    civil.ucf
  539. endQueFiles
  540. QueFiles to [installationdirectory]\config\project
  541.    civil.pcf
  542. endQueFiles
  543. endif
  544. if [InstalledMap] = 2
  545. QueFiles to [installationdirectory]\config\user
  546.    mapping.ucf
  547.    maprev.ucf
  548. endQueFiles
  549. QueFiles to [installationdirectory]\config\project
  550.    mapping.pcf
  551. endQueFiles
  552. endif
  553. SetAllowExit On
  554. [insideget] := 1
  555. getquedfiles ShowJustOne
  556. SetBottomLineTo ""
  557. [insideget] := 0
  558. SetAllowExit Off
  559. [Number1] := quesize
  560. If [Number1] = 0
  561.    SetCompletionStatusTo Finished
  562. else
  563.    SetCompletionStatusTo UnFinished
  564.    Goto [Point30]
  565. Endif
  566. CreateDirectoryIfNecessary [installationdirectory]\config\appl
  567. if DirectoryExists [installationdirectory]\database\ris
  568.    CreateDirectoryIfNecessary [installationdirectory]\database\ris\examples\tables
  569. endif
  570. CreateDirectoryIfNecessary [installationdirectory]\license
  571. CreateDirectoryIfNecessary [installationdirectory]\material
  572. CreateDirectoryIfNecessary [installationdirectory]\material\bump
  573. CreateDirectoryIfNecessary [installationdirectory]\material\pattern
  574. if DirectoryExists [installationdirectory]\database\oracle
  575.    CreateDirectoryIfNecessary [installationdirectory]\database\oracle\examples\forms
  576. endif
  577. CreateDirectoryIfNecessary [installationdirectory]\wsui\default
  578. CreateDirectoryIfNecessary [installationdirectory]\out
  579. CreateDirectoryIfNecessary [installationdirectory]\out\plot
  580. CreateDirectoryIfNecessary [installationdirectory]\out\cgm
  581. CreateDirectoryIfNecessary [installationdirectory]\out\iges
  582. CreateDirectoryIfNecessary [installationdirectory]\out\image
  583. CreateDirectoryIfNecessary [installationdirectory]\out\tag
  584. CreateDirectoryIfNecessary [installationdirectory]\out\dwgordxf
  585. CreateDirectoryIfNecessary [installationdirectory]\out\dgn
  586. CreateDirectoryIfNecessary [installationdirectory]\tagcfg
  587. CreateDirectoryIfNecessary [installationdirectory]\tmp
  588. CreateDirectoryIfNecessary [Installationdirectory]\dgn
  589. CreateDirectoryIfNecessary [Installationdirectory]\dgn\default
  590. [Point30]
  591. If [UnAttended] = 1
  592.    SoLong
  593. EndIf
  594. If completionstatus = Finished
  595.   ChangeDirectoryTo [InstallationDirectory]
  596.   if DirectoryExists [InstallationDirectory]\winconn
  597.   If [JustSetWin] = 1
  598.      Goto [Point32]
  599.   EndIf
  600.  
  601.   Dialog [YesOrNo1]
  602. Desea instalar la Conexión de Windows ?
  603.  
  604.   Esta opción hará que Windows cree un grupo para la Conexión de 
  605.   Windows en MicroStation la próxima vez que inicie Windows. (Si 
  606.   está ejecutando Windows, será necesario salir y reinicializar). 
  607.   Sin embargo, esto no se debe hacer si ésta es una instalación
  608.   en servidor de red o no tiene instalado Windows.
  609.   EndDialog
  610.   if [YesOrNo1] = YesCharacter
  611.      [SetWindows] := 0
  612.   else
  613.      [SetWindows] := 1
  614.   endif
  615.  
  616.  
  617. [Point35]
  618.   if [SetWindows] = 1
  619.      GoTo [Point40]
  620.   EndIf
  621. [point32]
  622.  
  623.   if FileExists [WindowsDirectory]\win.ini
  624.   else
  625.      Dialog [YesOrNo1] WhiteOnRed
  626.      No se encuentra el directorio WINDOWS.
  627.      Ha instalado Windows ?
  628.      EndDialog
  629.      if [YesOrNo1] = NoCharacter
  630.     [SetWindows] := 1
  631.     Goto [Point40]
  632.      EndIf
  633.      do askForWinDir
  634.      goto [Point35]
  635.   EndIf
  636.   if FileExists [WindowsDirectory]\system.ini
  637.   else
  638.      Dialog [YesOrNo1] WhiteOnRed
  639.      No se encuentra el directorio WINDOWS.
  640.      Ha instalado Windows ?
  641.      EndDialog
  642.      if [YesOrNo1] = NoCharacter
  643.     [SetWindows] := 1
  644.     Goto [Point40]
  645.      EndIf
  646.      do askForWinDir
  647.      goto [Point35]
  648.   EndIf
  649.  
  650. procedure askForWinDir
  651.   Dialog [Dir1] 63
  652.      Indique la vía de acceso al directorio de Windows:
  653.   EndDialog
  654.   [WindowsDirectory] := [Dir1]
  655. endprocedure
  656.      
  657.   [String1] := [WindowsDirectory]
  658.   [Number1] := LengthOf [String1]
  659.   [String2] := SubstringOf [String1] from End to End
  660.   [Number1] := [number1] - 1
  661.  
  662.   [String1] := SubstringOf [String1] from Beginning to [Number1]
  663.  
  664.   Run [installationDirectory]\connect.exe [String1] > [installationDirectory]\connect.txt UseSecond Quietly SwapOut
  665.   If FileExists [installationdirectory]\connect.txt
  666.      ExamineTextFile [installationDirectory]\connect.txt
  667.      [String1] := Line 1
  668.      [String2] := Line 2
  669.      [String3] := Line 3
  670.      ForgetTextFile
  671.      Dialog 
  672.      Estableciendo la Conexión de Windows:
  673.      [String1]
  674.      [String2]
  675.      [String3]
  676.      endDialog
  677.  
  678.      DeleteFiles from [installationDirectory] Quietly
  679.        connect.txt
  680.      endDeleteFiles
  681.   else
  682.      Popup "No se puede modificar WIN.INI ni/o SYSTEM.INI"
  683.   EndIf
  684.  
  685.  
  686.   Dialog [YesOrNo1]
  687.     Desearía configurar la Conexión de Windows?
  688.     Tiene que configurar la Conexión de Windows antes de 
  689.     ejecutarla por primera vez. Sin embargo, podría no 
  690.     desear hacer la configuración si ésta es una 
  691.     instalación en servidor de red, a menos que desee 
  692.     proveer a todos los sistemas locales con la 
  693.     misma configuración por defecto.
  694.   EndDialog
  695.   if [YesOrNo1] = YesCharacter
  696.     ChangeDirectoryTo [InstallationDirectory]
  697.     Run [InstallationDirectory]\usconfig.exe -windows NoPrompt SwapOut
  698.   endif
  699.   endif
  700. [Point40]
  701.   Dialog [YesOrNo1]
  702.      ¿Desea configurar MicroStation para DOS?
  703.      Será necesario configurar MicroStation antes de
  704.      ejecutarlo por primera vez. Sin embargo, es posible que
  705.      no quiera configurarlo si ésta es una instalación en
  706.      servidor de red, a menos que quiera poner en todos los
  707.      sistemas la misma configuración por defecto.
  708.   EndDialog
  709.   if [YesOrNo1] = YesCharacter
  710.     ChangeDirectoryTo [InstallationDirectory]
  711.     Run [InstallationDirectory]\usconfig.exe -dos NoPrompt SwapOut
  712.   endif
  713.   Dialog
  714.     Se ha completado la instalación de MicroStation.
  715.   EndDialog
  716. else
  717.   Dialog
  718.     No se ha instalado completamente MicroStation.
  719.     Debe ejecutar nuevamente el programa de instalación
  720.   EndDialog
  721. Endif
  722.  
  723. procedure ourExitProc
  724.    if [Insideget] = 0
  725.       Dialog [YesOrNo1] WhiteOnRed
  726.       ¿Desea terminar la instalación?
  727.       EndDialog
  728.       if [YesOrNo1] = YesCharacter
  729.      Solong
  730.       EndIf
  731.    Endif
  732. endprocedure
  733.